Sub SendRemote()

    Dim send_data As Integer
    Dim disk_name As String
    On Error GoTo ERR_HNDL
    
    disk_name = Cells(2, "E").Value
    send_data = ActiveCell.Offset(0, 1).Value

    If send_data = 0 Or send_data > 472 Then GoTo NOT_SELECT

    Open disk_name + ":\ADDON\REMOTE.LOG" For Binary As #1
    
    Put #1, 1, CByte(254)
    Put #1, 2, CByte(255)
    Put #1, 3, CByte(send_data Mod 256)
    Put #1, 4, CByte(Int(send_data / 256))
    
    Close #1
    Exit Sub

NOT_SELECT:
    MsgBox ("認識語を選択して送信ボタンを押して下さい")
    Exit Sub
ERR_HNDL:
    MsgBox ("REMOTE.LOGが書き込めません。ドライブIDが正しいか確認してください")
    Exit Sub
End Sub